Loadstar 53/053.d81/politics 1988

Commodore BASIC | 2022-08-26 | 26KB | 659 lines

100 goto170
110 poke214,23:print:poke198,0
120 print"[150]  [211][208][193][195][197] [194][193][210] to continue   [198]1 to [209]uit  ";
130 getx$
140 ifx$=" "thenprint"[147][146]";:print"[154]":return
150 ifx$="[133]"then5620
160 goto130
170 print"[147]";:poke53280,0:poke53281,0:poke53272,23
180 print"[150]"
190 print"    [161][172][187][146][187][172][172][187][146][187][161][146][161]   [187][172][146] [188][187][172][146][190] [187][172][146] [172][172][187][146][187][172][172][187][146][187]"
200 print"    [161][188][190][146][190][161][146][161][161][146][161][161][146][161]   [161][146][161]  [161][146][161]  [161][146][161] [161][146][161]  [188][188][146][162]"
210 print"    [161][146][161]  [161][146][161][161][146][161][161][146][161]   [161][146][161]  [161][146][161]  [161][146][161] [161][146][161][172][187][172][187][161][146][161]"
220 print"    [188][190]   [162][162][146] [188][162][162][146][190] [162][162][146]  [188][190]  [162][162][146]  [162][162][146]  [162][162][146]"
230 print"             [161][146][161] [172][172][187][146][187][172][172][187][146][187][172][172][187][146][187]"
240 print"             [187][146][161] [188][188][190][146][161][188][188][190][146][190][188][188][190][146][190]"
250 print"[154]             [161][146][161] [172][187][161][146][161][161][146][161][161][146][161][161][146][161][161][146][161]"
260 print"            [188][162][162][146][190] [162][162][146]  [162][162][146]  [162][162][146]"
270 print" [193]n [193]ssessment of [217]our [208]olitical [214]iews"
280 print"       by [196]r. [196]allace [204]. [205]eehan"
290 fori=1to4000:next:print"[147]"chr$(14)
300 print"[150]         *******************"
310 print"         *                 *"
320 print"         *  [208][207][204][201][212][201][195][211][160]1988  *"
330 print"[154]         *                 *"
340 print"         *******************"
350 print"   [215][200][197][210][197][160][196][207][160][217][207][213][160][211][212][193][206][196][160][207][206][160][212][200][197][160][201][211][211][213][197][211]?"
360 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
370 print"[154]   [208]olitically speaking, are you a"
380 print"[196]emocrat or a [210]epublican?  [193]re you a"
390 print"liberal or a conservative?  [196]o you know?"
400 print"[212]he fact is, many, if not most people,"
410 print"are liberal on some issues and conserv-"
420 print"ative on others."
430 gosub110
440 print"   [208]olitical beliefs are more accurately"
450 print"described as existing along a continuum."
460 print"[212]hey are seldom as clearly polarized at"
470 print"the extreme ends of the political spect-"
480 print"rum as a 'two-party' system might sug-"
490 print"gest."
500 print"   [208]arty affiliation not withstanding"
510 print"then, how do you really know how you"
520 print"stack up in terms of your political be-"
530 print"liefs?"
540 gosub110
550 print"   [207]ne way is to evaluate your position"
560 print"on the key issues.  [212]his program was"
570 print"designed to do just that.  [194]ased on a"
580 print"survey of experts on political polling,"
590 print"'[208][207][204][201][212][201][195][211][160]1988' will assess your views"
600 print"on several major issues.  [212]he overall"
610 print"results will then be evaluated in terms"
620 print"of where your beliefs fall along the"
630 print"political spectrum."
640 gosub110
650 print"   '[208][207][204][201][212][201][195][211][160]1988'  can help you choose "
660 print"the  correct  candidate  and  political "
670 print"party  consistent with your own beliefs."
680 print"[212]he program is also designed to serve as"
690 print"a tutorial on the national issues used  "
700 print"in the survey.                          "
710 gosub110
720 print"[150]          [211][213][210][214][197][217][160][201][206][211][212][210][213][195][212][201][207][206][211]"
730 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]   "
740 print"[154][198]ollowing a brief discussion of selected "
750 print"political issues you will be presented   "
760 print"with three possible positions for each.  "
770 print"[210]ead these carefully.  [212]hen enter the    "
780 print"number corresponding to the position     "
790 print"which comes closest to your own."
800 gosub110
810 print"   [208]lease note that none of the three"
820 print"positions may reflect your view exactly,"
830 print"but one of them will certainly come"
840 print"closer than the other two.  [217]ou must"
850 print"enter your choice for each of the issues"
860 print"used in the survey.  [215]hen all of your"
870 print"selections have been made, the computer"
880 print"will prepare your political profile."
890 gosub110
900 print"[150]           [212][200][197][160][194][213][196][199][197][212][160][196][197][198][201][195][201][212]"
910 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
920 print"[154]   [210]onald [210]eagan campaigned for election";
930 print"in 1980 as a fierce opponent of taxes"
940 print"and wasteful [213].[211]. spending.  [201]n 1981 he"
950 print"won [195]ongressional approval for major"
960 print"cuts in taxes.   [200]is idea was to stimul-";
970 print"ate the economy by putting more money"
980 print"into consumers' hands."
990 print"   [208]resident [210]eagan also began a mili-"
1000 print"tary buildup.  [212]he combination of less"
1010 print"tax money and increased defense spend-"
1020 print"ing fueled a period of massive federal"
1030 print"budget deficits.   [212]his is the gap be-"
1040 print"tween  what the government spends and"
1050 print"what it earns in taxes.  [211]ince 1981 the"
1060 print"[213].[211]. budget deficit has averaged more"
1070 print"than $181 billion a year."
1080 gosub110
1090 print"   [212]o make up the difference, the gov-"
1100 print"ernment has borrowed money -- much of"
1110 print"it from foreign investors.  [212]he total"
1120 print"national debt -- all the money the gov-"
1130 print"ernment owes its creditors -- is now"
1140 print"more than $2.4 trillion!"
1150 print"          ($2,400,000,000,000)"
1160 print"   [198]ederal spending has indeed sparked"
1170 print"economic growth, but most economists"
1180 print"believe the budget deficits dangerously"
1190 print"weaken the economy's long-range health."
1200 print"[198]uture generations, they say, may face"
1210 print"higher taxes and a lower standard of"
1220 print"living in order to pay off this gener-"
1230 print"ation's bills."
1240 gosub110
1250 print"   [201]n [207]ctober, 1987, the stock market"
1260 print"plunged as alarm over the state of the "
1270 print"economy increased.  [205]ost economists and"
1280 print"business leaders agree that the federal"
1290 print"deficit must be reduced.  Some want cuts";
1300 print"in defense spending, while others feel "
1310 print"that social programs should be cut.  [193]t"
1320 print"the same time, many economists call for"
1330 print"a tax increase while others warn that"
1340 print"raising taxes would dismay consumers and";
1350 print"increase the chance for a serious slump"
1360 print"in the economy."
1370 print"   [215]hich of the following statements"
1380 print"most closely reflects your position on"
1390 print"this issue?"
1400 gosub110
1410 print"[150]          [212][200][197]  [194][213][196][199][197][212] [160][196][197][198][201][195][201][212]"
1420 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1430 print"[154][192][192] 1. [